home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr10 / boxit010.zip / BOXIT.MNU < prev    next >
Text File  |  1993-06-24  |  6KB  |  200 lines
  1. /*
  2.   ┌╥─────────────────────────────────────────────────────────────────────╥┐
  3.   │║ Macro Title: BoxIt!                                                 ║│
  4.   │║ Version....: 0.10 for TSE 1.0 Pre-Release                           ║│
  5.   │║ Author.....: George J. De Bruin                                     ║│
  6.   │║ Address....: 1414 Shiloh Rd. Apt/Box 511                            ║│
  7.   │║              Plano, TX 75074                                        ║│
  8.   │║ Phone......: (214) 422-0266                                         ║│
  9.   │║ BBS Contact: Qedit support conferences on the following Mail Nets:  ║│
  10.   │║              RIME, Ilink, Intelec, Metrolink, FidoNet, EchoNet.     ║│
  11.   │║              Also available via the Ilink Editor's Conference, and  ║│
  12.   │║              directly on SemWare's Support BBS.                     ║│
  13.   │╟─────────────────────────────────────────────────────────────────────╢│
  14.   │║ This macro is hereby released as freeware.  Anyone may use          ║│
  15.   │║ or modify it in any way they see fit.  Future versions may carry    ║│
  16.   │║ more notices on distributing modified versions of BoxIt!            ║│
  17.   │╟─────────────────────────────────────────────────────────────────────╢│
  18.   │║                       R E L E A S E   N O T I C E                   ║│
  19.   │║                                                                     ║│
  20.   │║ This macro is officially released to SemWare for possible           ║│
  21.   │║ distribution in conjunction with The SemWare Editor, or an ancillary║│
  22.   │║ macro collection.                                                   ║│
  23.   │╟─────────────────────────────────────────────────────────────────────╢│
  24.   │║ Purpose:                                                            ║│
  25.   │║                                                                     ║│
  26.   │║ This is a simple macro that will draw a box around column blocked   ║│
  27.   │║ area using TSE's internal line drawing mode.  *ONLY* column blocks  ║│
  28.   │║ are supported at this time.                                         ║│
  29.   └╨─────────────────────────────────────────────────────────────────────╨┘
  30. */
  31.  
  32. /* ─────────────────────────────────────────────────────────────────── */
  33. menu BoxItAbout()
  34.  
  35.     "      BoxIt! 0.10",
  36.         ,
  37.         dontclose,
  38.         "See Help / History for details."
  39.  
  40.     "For TSE 1.0 -- Pre-Release",
  41.         ,
  42.         skip
  43.  
  44.     "    Released: 06/24/93",
  45.         ,
  46.         skip
  47.  
  48.     "",
  49.         ,
  50.         divide
  51.  
  52.     "Author: George J. De Bruin",
  53.         ,
  54.         dontclose,
  55.         "See Help / Author for information on contacting the author."
  56.  
  57.     "        Team TSE",
  58.         ,
  59.         skip
  60.  
  61.  
  62. end BoxItAbout
  63.  
  64. /* ─────────────────────────────────────────────────────────────────── */
  65. menu BoxSides()
  66.     History
  67.  
  68.     "&Global" [StrBoxGlobal(BoxGlobal):4],
  69.         SetAllSides(),
  70.         CloseAfter,
  71.         "Set all sides On or Off."
  72.  
  73.     "",,divide
  74.  
  75.     "&Top"    [StrOnOff(BoxTop):3],
  76.         OptToggle(BoxTop),
  77.         DontClose,
  78.         "Toggle Top side On or Off."
  79.  
  80.     "&Bottom" [StrOnOff(BoxBottom):3],
  81.         OptToggle(BoxBottom),
  82.         DontClose,
  83.         "Toggle Bottom side On or Off."
  84.  
  85.     "&Left"   [StrOnOff(BoxLeft):3],
  86.         OptToggle(BoxLeft),
  87.         DontClose,
  88.         "Toggle Left side On or Off."
  89.  
  90.     "&Right"  [StrOnOff(BoxRight):3],
  91.         OptToggle(BoxRight),
  92.         DontClose,
  93.         "Toggle Right side On or Off."
  94.  
  95. end BoxSides
  96.  
  97. /* ─────────────────────────────────────────────────────────────────── */
  98. menu BoxGaps()
  99.     History
  100.  
  101.     "&Global"  [GlobalGap:5],
  102.         SetAllGaps(),
  103.         CloseAfter,
  104.         "Set Gap for all sides of box."
  105.  
  106.     "",,divide
  107.  
  108.     "&Top"     [TopGap:5],
  109.         NumRead(TopGap),
  110.         DontClose,
  111.         "Set gap between top of block and top of box."
  112.  
  113.     "&Bottom"  [BottomGap:5],
  114.         NumRead(BottomGap),
  115.         DontClose,
  116.         "Set gap between bottom of block and bottom of box."
  117.  
  118.     "&Left"    [LeftGap:5],
  119.         NumRead(LeftGap),
  120.         DontClose,
  121.         "Set gap between left side of block and left side of box."
  122.  
  123.     "&Right"   [RightGap:5],
  124.         NumRead(RightGap),
  125.         DontClose,
  126.         "Set gap between right side of block and right side of box."
  127.  
  128. end BoxGaps
  129.  
  130. /* ─────────────────────────────────────────────────────────────────── */
  131. menu BoxHelp()
  132.     History
  133.  
  134.     "&Error Messages",
  135.         ShowHelp(ErrorMsgs),
  136.         CloseBefore,
  137.         "Help with error / warning messages."
  138.  
  139.     "&Gap Settings",
  140.         ShowHelp(GapSettings),
  141.         CloseBefore,
  142.         "Help on setting gaps."
  143.  
  144.     "&Keys",
  145.         ShowHelp(QuickKeyRef),
  146.         CloseBefore,
  147.         "Quick key reference."
  148.  
  149.     "&Line Type Setting",
  150.         ShowHelp(LineSettings),
  151.         CloseBefore,
  152.         "Help on Line Type Settings."
  153.  
  154.     "&Side Toggles",
  155.         ShowHelp(SideToggles),
  156.         CloseBefore,
  157.         "Help on setting side toggles."
  158.  
  159.     "&Using BoxIt!",
  160.         ShowHelp(UsingBoxIt),
  161.         CloseBefore,
  162.         "Help with marking a block."
  163.  
  164.     "",,divide
  165.  
  166.     "&Author",
  167.         ShowHelp(Author),
  168.         CloseBefore,
  169.         "A short Bio, and how to contact the author."
  170.  
  171.     "BoxIt! &History",
  172.         ShowHelp(History),
  173.         CloseBefore,
  174.         "BoxIt! History Information."
  175.  
  176. end BoxHelp
  177.  
  178. /* ─────────────────────────────────────────────────────────────────── */
  179. menu BoxItMnu()
  180.     "&BoxIt!    ", BoxIt(), CloseAllBefore, "Draw box NOW!"
  181. end BoxItMnu
  182.  
  183. /* ─────────────────────────────────────────────────────────────────── */
  184. menu BoxLine()
  185.     "&Line Type ", LineTypeMenu(), dontclose, "Select Line Type."
  186. end BoxLine
  187.  
  188. /* ─────────────────────────────────────────────────────────────────── */
  189. menubar BoxItMnuBar()
  190.     History
  191.  
  192.     "≡", BoxItAbout()
  193.     "&BoxIt!", BoxItMnu()
  194.     "&Side Toggles", BoxSides()
  195.     "&Gap Settings", BoxGaps()
  196.     "&Line Type", BoxLine()
  197.     "&Help", BoxHelp()
  198. end BoxItMnuBar
  199.  
  200.